***DESCRIPTIVE STATS
tabulate vignette

**Table A1, Supplemental Appendix (summary statistics)
tabulate income
bysort vignette: tabulate income
summarize age
bysort vignette: summarize age
tabulate gender
bysort vignette: tabulate gender
tabulate race
bysort vignette: tabulate race
tabulate pid3
bysort vignette: tabulate pid3
tabulate ideology3point
bysort vignette: tabulate ideology3point
tabulate educ
bysort vignette: tabulate educ
summarize polintnumeric
bysort vignette:summarize polintnumeric 

** Table2: Factual Manipulation Check 
tabulate vignette fmc, row col chi2

** Table A2, Supplemental Appendix (distribution by vignette)
tabulate scalesupport vignette,row col  chi2

** Figure 1
 graph bar, over(scalesupport) by(vignette) scheme(plotplain)

** Difference in Means Tests 
ttest scalesupport if vignette <3, by(vignette)
ttest scalesupport if vignette ==2 | vignette==3, by(vignette) 
ttest scalesupport if vignette ==3 | vignette==4, by(vignette) 

** Table 3: Ordered Logit Regression Results & Figures 2-5: Marginal Effects
ologit scalesupport vignette if vignette<3, r
margins, dydx (vignette)
marginsplot, scheme (plotplain)
ologit scalesupport vignette if vignette==2 | vignette==3, r
margins, dydx (vignette)
marginsplot, scheme (plotplain)
ologit scalesupport vignette if vignette==3 | vignette==4, r
margins, dydx (vignette)
marginsplot, scheme (plotplain)


** Table 4: Ordered Logit Table Demographics
ologit scalesupport i.vignette, r
ologit scalesupport i.vignette gendernum age white, r
ologit scalesupport i.vignette gendernum age white income75andover somecollegeeduc , r
ologit scalesupport i.vignette gendernum age white income75andover somecollegeeduc i.pid3 i.ideology3point, r
ologit scalesupport i.vignette gendernum age white income75andover somecollegeeduc i.pid3 i.ideology3point if vignette==1, r 
ologit scalesupport i.vignette gendernum age white income75andover somecollegeeduc i.pid3 i.ideology3point if vignette>1, r 


** Table 5: Demographic Attributes Table
bysort gendernum: tabulate bisupport if vignette==1
bysort gendernum: tabulate bisupport if vignette==2
bysort gendernum: tabulate bisupport if vignette==3
bysort gendernum: tabulate bisupport if vignette==4

bysort ageover45: tabulate bisupport if vignette==1
bysort ageover45: tabulate bisupport if vignette==2
bysort ageover45: tabulate bisupport if vignette==3
bysort ageover45: tabulate bisupport if vignette==4

bysort pid3: tabulate bisupport if vignette==1
bysort pid3: tabulate bisupport if vignette==2
bysort pid3: tabulate bisupport if vignette==3
bysort pid3: tabulate bisupport if vignette==4

bysort ideology3point: tabulate bisupport if vignette==1
bysort ideology3point: tabulate bisupport if vignette==2
bysort ideology3point: tabulate bisupport if vignette==3
bysort ideology3point: tabulate bisupport if vignette==4

bysort income75andover: tabulate bisupport if vignette==1
bysort income75andover: tabulate bisupport if vignette==2
bysort income75andover: tabulate bisupport if vignette==3
bysort income75andover: tabulate bisupport if vignette==4

bysort somecollegeeduc: tabulate bisupport if vignette==1
bysort somecollegeeduc: tabulate bisupport if vignette==2
bysort somecollegeeduc: tabulate bisupport if vignette==3
bysort somecollegeeduc: tabulate bisupport if vignette==4

bysort white: tabulate bisupport if vignette==1
bysort white: tabulate bisupport if vignette==2
bysort white: tabulate bisupport if vignette==3
bysort white: tabulate bisupport if vignette==4

anova bisupport (vignette) if gendernum==1 & vignette==1|gendernum==1 & vignette==2
anova bisupport (vignette) if gendernum==1 & vignette==2|gendernum==1 & vignette==3
anova bisupport (vignette) if gendernum==1 & vignette==3|gendernum==1 & vignette==4
anova bisupport (vignette) if gendernum==0 & vignette==1|gendernum==0 & vignette==2
anova bisupport (vignette) if gendernum==0 & vignette==2|gendernum==0 & vignette==3
anova bisupport (vignette) if gendernum==0 & vignette==3|gendernum==0 & vignette==4

anova bisupport (vignette) if ageover45==1 & vignette==1|ageover45==1 & vignette==2
anova bisupport (vignette) if ageover45==1 & vignette==2|ageover45==1 & vignette==3
anova bisupport (vignette) if ageover45==1 & vignette==3|ageover45==1 & vignette==4
anova bisupport (vignette) if ageover45==0 & vignette==1|ageover45==0 & vignette==2
anova bisupport (vignette) if ageover45==0 & vignette==2|ageover45==0 & vignette==3
anova bisupport (vignette) if ageover45==0 & vignette==3|ageover45==0 & vignette==4

anova bisupport (vignette) if white==1 & vignette==1|white==1 & vignette==2
anova bisupport (vignette) if white==1 & vignette==2|white==1 & vignette==3
anova bisupport (vignette) if white==1 & vignette==3|white==1 & vignette==4
anova bisupport (vignette) if white==0 & vignette==1|white==0 & vignette==2
anova bisupport (vignette) if white==0 & vignette==2|white==0 & vignette==3
anova bisupport (vignette) if white==0 & vignette==3|white==0 & vignette==4

anova bisupport (vignette) if income75andover==1 & vignette==1|income75andover==1 & vignette==2
anova bisupport (vignette) if income75andover==1 & vignette==2|income75andover==1 & vignette==3
anova bisupport (vignette) if income75andover==1 & vignette==3|income75andover==1 & vignette==4
anova bisupport (vignette) if income75andover==0 & vignette==1|income75andover==0 & vignette==2
anova bisupport (vignette) if income75andover==0 & vignette==2|income75andover==0 & vignette==3
anova bisupport (vignette) if income75andover==0 & vignette==3|income75andover==0 & vignette==4

anova bisupport (vignette) if somecollegeeduc==1 & vignette==1|somecollegeeduc==1 & vignette==2
anova bisupport (vignette) if somecollegeeduc==1 & vignette==2|somecollegeeduc==1 & vignette==3
anova bisupport (vignette) if somecollegeeduc==1 & vignette==3|somecollegeeduc==1 & vignette==4
anova bisupport (vignette) if somecollegeeduc==0 & vignette==1|somecollegeeduc==0 & vignette==2
anova bisupport (vignette) if somecollegeeduc==0 & vignette==2|somecollegeeduc==0 & vignette==3
anova bisupport (vignette) if somecollegeeduc==0 & vignette==3|somecollegeeduc==0 & vignette==4


anova bisupport (vignette) if pid3==1 & vignette==1|pid3==1 & vignette==2
anova bisupport (vignette) if pid3==1 & vignette==2|pid3==1 & vignette==3
anova bisupport (vignette) if pid3==1 & vignette==3|pid3==1 & vignette==4
anova bisupport (vignette) if pid3==2 & vignette==1|pid3==2 & vignette==2
anova bisupport (vignette) if pid3==2 & vignette==2|pid3==2 & vignette==3
anova bisupport (vignette) if pid3==2 & vignette==3|pid3==2 & vignette==4
anova bisupport (vignette) if pid3==3 & vignette==1|pid3==3 & vignette==2
anova bisupport (vignette) if pid3==3 & vignette==2|pid3==3 & vignette==3
anova bisupport (vignette) if pid3==3 & vignette==3|pid3==3 & vignette==4

anova bisupport (vignette) if ideology3point==1 & vignette==1|ideology3point==1 & vignette==2
anova bisupport (vignette) if ideology3point==1 & vignette==2|ideology3point==1 & vignette==3
anova bisupport (vignette) if ideology3point==1 & vignette==3|ideology3point==1 & vignette==4
anova bisupport (vignette) if ideology3point==2 & vignette==1|ideology3point==2 & vignette==2
anova bisupport (vignette) if ideology3point==2 & vignette==2|ideology3point==2 & vignette==3
anova bisupport (vignette) if ideology3point==2 & vignette==3|ideology3point==2 & vignette==4
anova bisupport (vignette) if ideology3point==3 & vignette==1|ideology3point==3 & vignette==2
anova bisupport (vignette) if ideology3point==3 & vignette==2|ideology3point==3 & vignette==3
anova bisupport (vignette) if ideology3point==3 & vignette==3|ideology3point==3 & vignette==4


**Figure 5: AnySuport
graph bar anysupportnum, over (vignette) scheme(plotplain)

**Figure 6: WhichSuport
graph bar, over(whichsupport1) by(vignette) scheme(plotplain)

